home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 June / Chip_2004-06_cd1.bin / software / tsw / tsw.exe / {app} / scripts / Make ordered list.tss < prev    next >
Text File  |  2003-07-09  |  615b  |  32 lines
  1. {
  2. [Scriptsettings]
  3. Scriptname=Create ordered list from selected lines
  4. ExecuteOnStartup=0
  5. ExecuteOnlyOnce=0
  6. }
  7. Program MakeList;
  8.  
  9. function ListIt(s: string) : string;
  10. var
  11.  i: integer;
  12.  TempList: TStringList;
  13.  Output: string;
  14. begin
  15.  Output := '<ol>'+#13#10;
  16.  TempList := TStringList.Create;
  17.  TempList.Text := s;
  18.  for i := 0 to TempList.Count - 1 do
  19.   if TempList.Strings[i] <> '' then
  20.    Output := Output + '    <li>'+TempList.Strings[i]+#13#10;
  21.  Output := Output + '</ol>'+#13#10;
  22.  Result := Output;
  23.  
  24. end;
  25.  
  26. var
  27.  Code: string;
  28. begin
  29.  Code := GetSelText;
  30.  SetSelText(ListIt(Code));
  31. end.
  32.